home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0004 / screen.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-10  |  1.9 KB  |  67 lines
  1. 10  CLS
  2. 20  CLS:KEY OFF
  3. 30  REM----------------------------------------------
  4. 40  REM                SCREEN.BAS
  5. 50  REM    BUILD A SCREEN FORMAT FOR DATA ENTRY
  6. 60  REM----------------------------------------------
  7. 70  REM
  8. 80  OPEN "I",2, "HEADER.DAT"
  9. 90   INPUT #2,FSCREEN$,ROOT%,LNG%,LNF%,AN%,LINS%,N%,SIZE%,INDEX$,MAST$
  10. 100  CLOSE 2
  11. 110  FOR I%=1 TO 10:PRINT:NEXT I%
  12. 120  PRINT" Enter a Screen Form one line at a time."
  13. 130  PRINT
  14. 131  PRINT"EXAMPLE:   1 LAST NAME *----------------
  15. 132  PRINT"           2 FIRST :---------------
  16. 133  PRINT"           3 STREET:---------------
  17. 134  PRINT"           4 CITY  :----------------------
  18. 135  PRINT"           5 STATE :----      ZIP:----------
  19. 136  PRINT"           6 PHONE :---------------
  20. 140  PRINT:PRINT:PRINT" Remember these codes:
  21. 150  PRINT
  22. 160  PRINT"                * = keyed (indexed) value"
  23. 170  PRINT"                : = begins a field
  24. 180  PRINT"                - = field designation"
  25. 190  FOR I%=1 TO  3:PRINT:NEXT I%
  26. 200  DIM RW$(LINS%)
  27. 210  FOR L%=1 TO LINS%
  28. 220   PRINT USING "## ";L%;
  29. 230   LINE INPUT RW$(L%)
  30. 240  NEXT L%
  31. 250  REM--------------------------------
  32. 260  REM      edit it
  33. 270  REM--------------------------------
  34. 280  PRINT
  35. 290  INPUT "Enter 0 to stop, or line number to change: ";L%
  36. 300  IF L%<= 0 OR L%>LINS% THEN 390
  37. 310   PRINT USING "## ";L%;
  38. 320   PRINT RW$(L%)
  39. 330   PRINT USING "## ";L%;
  40. 340   LINE INPUT RW$(L%)
  41. 350  GOTO 280
  42. 360  REM-----------------------------------------
  43. 370  REM     file it in fscreen$
  44. 380  REM-----------------------------------------
  45. 390  REM
  46. 400  PRINT:LINE INPUT "Do you want hard copy ?";Y$
  47. 410  IF Y$<>"y" AND Y$<>"Y" THEN 440
  48. 420  GOSUB 540:GOTO 400
  49. 430  REM------------------------------------
  50. 440  OPEN "o",1, FSCREEN$
  51. 450   FOR L%=1 TO LINS%
  52. 460       PRINT #1,RW$(L%)
  53. 470   NEXT L%
  54. 480  CLOSE 1
  55. 490  PRINT:PRINT"Form saved in ";FSCREEN$
  56. 500  RUN "dbmenu"
  57. 510  REM-----------------------------------
  58. 520  REM        hard copy
  59. 530  REM-----------------------------------
  60. 540  LPRINT:LPRINT "                    Screen Form ";FSCREEN$
  61. 550  LPRINT:LPRINT
  62. 560  FOR L%=1 TO LINS%
  63. 570   LPRINT USING "## ";L%:LPRINT RW$(L%)
  64. 580  NEXT L%
  65. 590  LPRINT:LPRINT:LPRINT
  66. 600  RETURN
  67.